COMMENT ⊗ VALID 00002 PAGES C REC PAGE DESCRIPTION C00001 00001 C00002 00002 TITLE DRIVE C00003 ENDMK C⊗; TITLE DRIVE INTEGER X1,X2,X3,X4,X5,X6,DRIVE SA: SPCWAR 1,SW6 INCHRW↔JRST .-1 SW6: MOVE X1↔DPB [POINT 7,DRIVE,6] MOVE X2↔DPB [POINT 7,DRIVE,13] MOVE X3↔DPB [POINT 7,DRIVE,20] MOVE X4↔DPB [POINT 7,DRIVE,27] MOVE X5↔DPB [POINT 7,DRIVE,34] MOVE X6↔DPB [POINT 1,DRIVE,35] DATAO 410,DRIVE DISMIS END SA